home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-sum < prev    next >
Lisp/Scheme  |  1998-10-24  |  507b  |  17 lines
  1. m-sum number integer-output
  2.  
  3. The function map-sum monitors the output of a conversion function producing a list of integers. It monitors this initial integer-output against a user-defined number which represents the sum of numbers required by the composer in the final output of integers. 
  4.  
  5. (setq sum
  6.  (m-sum 56
  7.   (cfunction
  8.    (gen-noise-white 100 1.0 .39) '(1 2 3 5 7))))
  9. => (3 1 2 3 1 5 7 5 3 2 7 7 5 5)
  10.  
  11. The function apply demonstrates how the integer-ouput is monitored. 
  12.  
  13. ;test
  14.  
  15. (apply '+ sum)
  16. => 56
  17.